/* Photon Script */
/* Made by Dell Bond */
/* Version 1.0 */

Call ZocTimeOut 1400000

say ""
say ""
say "You must have at least one photon missile on you"


do forever
result =zocwaitmux("ACTIVITY WARNI", "Deployed Fighters")
select
	when result=0 then call zocsend "#"
	when result=1 then do
	call zocwait "Report Sector "
	psector=GetSector(0,0)
	call zocsend "cpy"
	call zocsend psector
	call zocsend "^m"
	result =zocwaitmux("s not an adjacent sec", "Missile launched into")
	select
		when result=0 then t=1
		when result=1 then t=2
	end
	
	if t=1 then do
		call zocsend "qq"
	end
	
	if t=2 then do
		call zocsend "q"
		call zocdelay 5
	end
	end
end



end
exit

GetSector:
holdfinal=""
call zocwait ":"
holds=zoclastline()
DO addchar=1 to length(holds)
        holdsit=substr(holds,addchar,1)
        if holdsit<>"]" then DO
          if holdsit<>"," then holdfinal=holdfinal||holdsit
        end
END
RETURN holdfinal